(DEFUN C:DELETEPAGESETUPS ()
  (DELETEPAGESETUPS)
  (PRINC)
)
(DEFUN DELETEPAGESETUPS ()
  (VL-LOAD-COM)
  (VLAX-FOR page_set (VLA-GET-PLOTCONFIGURATIONS
                       (VLA-GET-ACTIVEDOCUMENT
                         (VLAX-GET-ACAD-OBJECT)
                       ) ;_ end of vla-get-activedocument
                     ) ;_ end of vla-get-plotconfigurations
    (VLA-DELETE page_set)
  ) ;_ end of vlax-for
  (PRINC)
) ;_ end of defun
